home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MacHack 1994
/
MacHack 1994.toast
/
MacHack™94
/
Talks & Papers
/
Timothy Knox
/
yerk 3.66
/
resmenus
< prev
next >
Wrap
Text File
|
1994-06-24
|
1KB
|
23 lines
\ If you don't want to use the menu loader supplied with Yerk, you may add
\ your menus to your resource file. Use this code as an example to load the
\ standard Yerk menu from a resource file. You may test this code by using
\ the resource editor ResEdit to copy the menu resources in the file 'menus'
\ into the 'yerk.rsrc' file. Then load the code into Yerk.com and try the new
\ word nmenu.
\ stuff handlers into menus - this is done at compile time
2 'cfas about null 1 put: appleMen
5 'cfas stdLoad doSave stdSave Print bye 2 put: fileMen
8 'cfas null null sysCut sysCopy sysPaste sysClear null doEdit 3 put: editMen
9 'cfas doWords doOlist doClist hier exam doDe doGrep null install 4 put: utilMen
9 'cfas pEcho lEcho null .path .room doMlist purge null null 5 put: yerkMen
clear: menubar
draw: menubar
\ note that you have to release the applemen, since each time you insert it,
\ the items are added to the menu. Without releasing first, you will wind up
\ with a big repetitive list in the applemen.
: nmenu release: applemen applemen fileMen editMen utilMen yerkMen 5 init: menubar ;